dim ws : set ws = CreateObject("WScript.Shell")
dim varName : varName = "ENABLE"
dim regPath : regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\LAYER_MAPPING\SSB\" & varName
value = ws.RegRead(regPath)
Application.ExecuteCommand("Display Colors Setup")
if value = 0 then
	value = 1
	DisplayColorsSetupDlg.ColorGrid.Cell("Silkscreen Bottom", "#") = "1"
	DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Bottom") = "1"
	DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "2D Lines") = "1"
	DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Copper") = "1"
	DisplayColorsSetupDlg.ColorGrid.Cell("BOTTOM", "Bottom") = "31"
else 
	value =0
	DisplayColorsSetupDlg.ColorGrid.Cell("Silkscreen Bottom", "#") = "0"
	DisplayColorsSetupDlg.ColorGrid.Cell("Visible Only", "Bottom") = "0"
end if
DisplayColorsSetupDlg.Ok.Click()
ws.RegWrite regPath, value, "REG_EXPAND_SZ"
set ws = nothing